home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9110b.d64 / quadro 64 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  486b  |  13 lines
  1. 1 REM SAVE"@0:QUADRO64",8:REM P. KITTEL, FFM, 8.5.91, 28.5.91
  2. 2 DIMA$(3):FORI=1TO28:A$(0)=A$(0)+" [157]":A$(1)=A$(1)+" [157]"
  3. 3 A$(2)=A$(2)+"[157] [157]":A$(3)=A$(3)+"[145] [157]":NEXT:N=2:PRINT"[147]";
  4. 4 X=RND(0)*35+2:Y=RND(0)*23+1:R=RND(0)*14+2:N=N+1:IFN>16THENN=1
  5. 5 H$=""+MID$("[144][159][156][158][129][149][150][151][152][153][154][155]",N,1):IFX-R<-1THENR=X+1
  6. 6 IFX+R>41THENR=41-X
  7. 7 IFY-R<-1THENR=Y+1
  8. 8 IFY+R>26THENR=26-Y
  9. 9 IFR<1THENR=1
  10. 10 PRINTLEFT$("",Y+1);SPC(X);H$;" [157]";
  11. 11 FORI=1TOR-1:J=6*I:PRINT"[157][145]";LEFT$(A$(0),J);LEFT$(A$(1),J);
  12. 12 PRINTLEFT$(A$(2),J);LEFT$(A$(3),J);:NEXT:GOTO4
  13.